MDBS IDENT H18 2/14/68 

'* ■ 

* SYSTEM FLAGS* OPBS* PARAMETERS* AN© MACROS 

*.' 



♦ ASSEMBLY FLAGS 

CPXF EQU -1 

CRXF EQU I 

PNXF EQU 1 

LPXF EQU -I 

RELCHN EQU -1 

ARMF EQU I 

DEBUG EQU 1 

COM EQU 1 

BITMAP EQU 1 

RANFIL EQU . -1 
NOLIST 



<MO CARD PUNCH) 

C CARD READER) 

CPAPER TAPE PUNCH) 

<NO LINE PRINTER) 

COLD DRUM CHANNEL) 

CARMING FEATURE) 

<i ASSEMBLE DEBUG PACKAGE*-! D0NT) 

<i COMSHARE SYSTEM*- 1 NOT) 

<1 FOR GOMSHARE EXEC* -1 FOR BERKELEY) 

<NO RANDOM FILE LOGIC) 



* OPDS 

SBRS 

TSN 

CKN 

GKF 

LRR1 

LRR2 

LRR3 

TTYS 



RSR 



RSE 



ADA 



DET 



DRT 



ALR_ 

ALRS 

RRF 

WRF 

IOSDW 

IOSDE 

IOSDEC 

CETE 



OPD 

OPD 

OPD 

OPD 

OPD 

OPD 

OPD 

MACRO 

DATA 

ENDM 

MACRO 

DATA 

ENDM 

MACRO 

DATA 

ENDM 

MACRO 

EOM 

ENDM 

MACRO 

SKS 

ENDM 

MACRO 

SKS 

ENDM 

OPD 

OPD 

OPD 

OPD 

EQU 

EQU 

EQU 61 

MACRO 

DATA 

ENDM 



17300000B*1*1 

002220008*2 

002201 00B*2 

00220200B*£ 

00220400B*2 

00221000B*2 

00221400B*2 

20277777B 



04050026B 
RAD 

040S1026B 

RAD 

D 

10026B 

D 
11026B 

D 
10026B 

006100268*2 



SYSTEM MODE BRS 

GO FROM NORMAL TO MONITOR MODE 

TURN ON THE CLOCK 

TURN OFF THE CLOCK 

LOAD RELABELLING REGISTER 1 

LOAD RELABELLING REGISTER 2 

LOAD RELABELLING REGISTER 3 



SKIP READY 
SKIP NO ERROR 



ALERT RAD 



006t0226B*2 READ SECTOR ADDRESS 



006022268*2 
00602266B*2 
00216200B 
00614200B 



READ RAD FILE 
WRITE RAD FILE 
W CHAN IOSD 
E CHAN IOSD 



7200B 



RAD IOSD ARMING ZERO WORD COUNT 



04051 000B 
E 



CHAN ERROR TEST 



GATE MACRO 1 DATA 0405400051 ENDM 

EOD GPD . 00600000B#I*r « 

RBG MACRO* EOM 10226B* ENBM5* RESET DISC CONTROLLER 
* PARAMETERS 



BIT0 


EQU 


40000000B 


BITl 


EQU 


20000000B 


BIT2 


EQU 


10000000B 


BIT3 


EQU 


4000000B 


BIT4 


EQO 


2000000B 


BITS 


EQU 


1000000B 


am 


EQU 


400000B 


BIT7 


EQU 


200000B 


BITS 


EQU 


100000B 


MXUSRS 


EQU 


1600 


RTCNT 


EQU 


64 


PNCNT 


EQU 


40 


CRCNT 


EQU 


82 


NTAPE 


EQU 


2 


NLINK 


EQU 





TCNT 


EQU 


199 


LPCNT 


EQU 


120 


RTWT 


EQU 


RTCNT*40/3 


PNWT 


EQU 


PNCNT* 400/ 6 


CRWT 


EQU 


300 


TXWT 


EQU 


20+TCNT/10 


LPWT 


EQU 


133 


NTRTRY 


EQU 


10 


NTWTRY 


EQU 


3 


NFILE 


EQU 


15 


mStZ 


EQU 


16 


NLTTC 


EQU 


. 


NTTYC 


EQU 


64 


TTYEWM 


EQU 


6 


TTYEEW 


EQU 


10 


NFQU 


EQU 


30 


AMB 


EQU 


40000B 


AIB 


EQU 


100000B 


8RB 


EQU 


4000000B 


8PB 


EQU 


2000000B 


LISB 


EQU 


400000B 


NPAC 


EQU 


100 


NPPAR 


EQU 


12 


NTTY 


EQU 


32 


NTTB 


EQU 


NTTY+NLINK 


MJ0B1 


EQU 


NTTB 


NJOB 


EQU 


NJOB1+1 


NMEM 


EQU 


32 


NSMEM 


EQU 


7 


NP0P 


EQU 


43B 


NSQU 


EQU 


9 


NPUG 


EQU 


15 


NSEC 


EQU 


2 


L2NSEC 


EQU 


1 



PAPER TAPE READER BUFFER LENGTH 
PAPER TAPE PUNCH BUFFER LENGTH 
CARD READER BUFFER LENGTH 
NUMBER OF MAG TAPE UN I TS 
NUMBER OF PDP-5 LINKS 
LENGTH OF MAG TAPE BUFFER 
LINE PRINTER BUFFER LENGTH 
PAPER TAPE READ TIME 
PAPER TAPE PUNCH TIME 
CARD READ TIME 
MAG TAPE TIME 
LINE PRINT TIME 
NUMBER OF REREADS 
NUMBER OF REWRITES 
NUMBER OF FILES ', . 
INITIAL MACHINE SIZE 

NUMBER OF CHARS IN TTY BUFFER 

TTY EARLY WARNING C . 6 SEO 

TTY EXTRA EARLY WARNING <1 SEC) 

FULL QUANTUM SIZE 

ACCEPT MESSAGE BIT 

ACCEPT INPUT BIT 

8- LEVEL INPUT BIT 

8-LEVEL OUTPUT BIT 

LISTEN FOR INPUT BIT 

NUMBER OF PACT SLOTS 

LENGTH OF PACT ENTRY 

NUMBER OF TTYS 

TOTAL TTY BUFFERS 

NUMBER OF JOBS WITHOUT P.U» 

NUMBER OF JOBS 

NUMBER OF PAGES 

NUMBER OF PAGES USED BY SYSTEM 

NUMBER OF SYSPOPS IN USE 

NUMBER OF CLOGK CYCLES IN SHORT QUANTUM 

NUMBER OF PUCT ENTRIES 



^ 



NDRAT 


EQU 


-'•6_ - 


NCMEM 


EQU 


STB 


NSMT 


EQU 


57B 


NUMEM 


EQU 


100B-NCMEM 


UDA 


equ 


1000 


NRRQ 


EQU 


NMEM-MSMEM 


NDRQ 


EQU 


5 


NBUFX 


EQU 


3 


NBUF 


EQU 


NBUFX 


NDBW 


EQU 


63 IB 


NDDW 


EQU 


255 


ndxw 


EQU 


NDBW- NDBW- 9 


NRTRY 


EQU 


5 


NBTRY 


EQU 


3 


NSBND 


EQU 


18 


QSBND 


EQU 


20 


DMPBND 


EQU 


22. _ 


DBTOP 

* 

MBUFA 


EQU 


37777B-N8UF: 


EQU 


03700000B 


MBUFX 


EQU 


34000000B 


DCTX 


EQU 


10000000B 


DCBR 


EQU 


20000000B 


DCDI 


EQU 


70000000B 


DBB 


EQU 


00400000B 




IF. 


-GQM 


SMIFIL EQU 


DBTOP+1 


SMBA 


EQU 


DBTOP+2 


SMDRN, 


EQU 


DBTOP+3 


SM0FIL 


EQU 


DBTOP 


FBWA 


EQU 
ENDF 


30000B 


FBWRD 


EQU 


DBTOP+4 


BXO 


EQU 


NDBW-NBXW 


BBP 


EQU 


BXO+NBXW-1 


BFP 


EQU 


BXO+NDXW-2 


BIG 


EQU 


NDDW* 4 


BIP 


EQU 


NDDW+7 


BDC 


EQU 


NDDW+6 


8IA 


EQU 


NODW+8 


BDN 


EQU 


NDDW+S 


BIN 


EQU 


NBDW+3 



COMMON PART OF USER MACHINE 
SIZE OF SMT 

NUMBER OF PRIVATE USER PASES 
INITIAL DRUM ASSIGNMENT 

NUMBER OF DISC I/O REQUESTS 
NUMBER OF BUFFERS IN THE EXEC BLOCK 
TOTAL NUMBER OF BUFFERS 
LENGTH OF DRUM BUFFER 
LENGTH OF DATA BLOCK 
LENGTH OF INDEX BLOCK 
NUMBER OF READ TRIES FOR RAD 
NUMBER OF READ TRIES FOR DRUM 
NUMBER OF 16K BANDS RESERVED FOR SWAPPING 
NUMBER OF 16K BANDS RESERVED FOR SYSTEM 
BAND FOR AUTOMATIC DUMP V 
I0BW-5 

BEGINNING OF DRUM BUFFERS IN EXEC TS 

FBWRD FOR SHARED BLOCK 

FBWRD FOR EXEC BLOCK 

CONDITIONAL TRANSMIT COMMAND 

BRANCH COMMAND 

DISCONNECT AND INTERRUPT COMMAND 

PROTECTED FILE BUSY BIT 

SECONDARY MEMORY INPUT FILE 
SECONDARY MEMORY BUFFER ADDRESS 
SECONDARY MEMORY BDN ADDRESS 
SECONDARY MEMORY OUTPUT FILE 
SHARED BLOCK FBWRD ADDRESS* 

BUFFER AVAILABILTY BIT WORD 

INDEX J3L0GK ORIGIN REL TO BUFF 

BACKWARD CHAIN WORD 

FORWARD CHAIN WORD 

INDEX CHANGED FLAG 

INDEX BLOCK POINTER 

CHANGED DATA FLAG 

INDEX BLOCK DRUM ADDRESS 

DATA BLOCK NUMBER 

INDEX BLOCK NUMBER 
♦♦♦PARAMETERS FOR DSC AND MWS0. 6/1/68* DC 
NACCTS EQU 400B NUMBER OF USER ACCOUNTS 
LBDRLEQU4 LIBRARY DIRECTORY LENGTH 
NDISCS EQU 20 NUMBER OF AVAILABLE DISCS 
NBLKSEQU NDISCS+4000B 
NSEGTS EQU NBLKS^4 

FAVDS EQU NACCTS+4+MXUSRS+LBDRL FIRST AVAILABLE DISC SECTOR 
NAVDS EQU NSECTS-FAVDS NUMBER OF AVAILABLE DISC SECTORS 
NAVBB EQU NAVDS/4 NUMBER OF AVAILABLE BLOCKS 

TOP EQU 56000B THE DISC ADDRESSES FAVDS* FAVDS+4.*. TOP ARE IN THE WINDOW 
NWINBLKS EQU TOP/4- FA VDS/4 NUMBER OF BLOCKS REPRESENTED IN THE WINDOW 
WINLEN EQU NWINBLKS/24 WINDOW LENGTH 



NFWOS EQU NAVDB/24 NUMBER OF FULL WORDS IN THE BITMAP 
REM EQU NAVDB-NFMDS*24 

SHIFTER EOU 24*REM TO ESTABLISH THE LAST WORD 
IF REMJLTAB EQU NFWDS+U ELSEILTAB EQU NFtfDS* 
***END OF ADDITIONS MADE 6/1/68 



OF THE BITMAP 

ENDF LENGTH OF BITMAP 



ARM! 



ENTRY 
ENTCNT 



SETINT 



.TDT 

lo>,w 



CLKTIM EQU 60 
* MACROS 

IF ARMF 

ARMI MACRO D 

AIR 

POT D<1> 

ENDM 

ELSF I 

MACRO 

ENDM 

ENDF 

MACRO L 

NARG 

RPT 
LCENTC.NT> EXT 
ENTCNT EQU 

ENDR 

ENDM 

MACRO 

LDA 

STA 

ENDM 

MACRO 

EQU, 

RPT 

LC2) 

ENDR 

ENDM 

MACRO 

ENDM 

MACRO 

ENDM 

MACRO D*.G* 1 

RSB 

BRU *-l 

ALR 

POT 

EOD* 

DATA 

POT 

RRF 

RS8 

BRU 

RSE 

BRU 6C1) 

CETE 

BRU 6C1) 

ENDM 

MACRO N 



CLOCK TIME 



RMFF 

SMFF 

READ 
6<1> 



ENTCNT 



ENTCNT-1 



A 

BLK31 

L 

* 

NTAPE 

L<3!>.B**-LU>, 



=D<3>/100B 
10000B 

IOSDE+DCl)/g000BtAND>37B+DC2)/40000B<AND)3*40B 
=DC1 ><AND>1777B*40000B+DC2><AND>37777B 



*-t 



ECHR 



EGHRWD 


EQO 


EGHRWD*400B+N<1>. 


► B 


NEOHR 


EQU 


NEGHR* I 






IF 


NECHR-2 






DATA 


EGHRWD 




EGHRWD 


eqo 


. 




NEGHR 


EQU 

ENDF 

ENDM 







ECHB 


MACRO 


N 




ECHVB 


EQO 


N<1)B 






RPT 


N<2> 




, . i 


ECHR 


EGHV 




EGHVB 


EQO 
ENDR 


EGHVB+N«3> 






ENDM 






TRP 


MACRO 


'l 




ENTCNT 


NARG 








RPT _• 


ENTCNT 




LCENTCNT) EQU 


TRAP 






FRGT 


LCENTGNT) 




ENTCNT 


EQO 
ENDR 
EN DM 


ENTCNT- 1 




CAGR 


MACRO 
DC2> 


D 






IF 


DC1J 






BRU 


GACGS 






BRU 


CACCF 






ELSF 


1 ■ ■■ l 






BRO 


CACCF 






BRO 


GAGGS 






ENDF 








EN DM 






LBL 


MACRO 


D 




U.8L 


EQO 


D<2> 






RPT 


D<2> 






LDA 


DCD + lLBL-l 






LRSH 


6 / ■'■ 




1LBL. 


EQO 

ENDR 

ENDM 


1LBL-1 




EXEGI 


EQtl 


10000B 




EXEGP 


EQO 


I0001B 




EJCEGT 


EQO 


10002B 




EXECR 


EQO 


10003B 





DB MACRO D 

ENTCNT EQO D<1 >*400B+DC2>*100B 

++40000000B+DC4> (AND > 1 *40B+D< 4><AND>2*40000B 

RPT D<3) 

DATA ENTCNT , ■ 

ENTCNT EQO ENTCNT+100B 

ENDR 



EN DM 



FORGT MACRO 
ENTGNT NARG 
RPT 
FR0T 
ENTCNT EQU 
ENBR 
ENDM 



ENTGNT 
DCENTCNTJ 
ENTCNT- 1 



FORGT CRXF#AIB*6PB*8RB*AMB*LISB 

FORGT MBUFA*MBUFX*PNXF*LPXF 

FORGT RTGNT*PNCNT#CRGNT*TCNT#LPCNT 

FORGT RTWT#PNWT#CRWT*TXWT#LPWT 

FORGT NTAP£*NLINK#NBUFX#NBUF 

FORGT NTRTRY*NTWTRY#NDTRY 

FORGT UDA#NDBW,NDXW*NDBW#0BT0P 

FORGT NFILE*UMSZ*NTTYC#TTYEWM 

FORGT NPAC*NPPAR#NJ0B#NJOBt#NFQU*NSQU 

FORGT NPOP*NMEM*NSMEM#NGMEM#NUMEM 

FORGT NPUQ#NSEC*L2NSEG*NBRQ#NSBNB#NSAM*NSMT. 

FORGT BCTX*DCBR#DCDI#DBB>ENTCNT 

FORGT FBWRD 

FORGT BX©#BBP*BFP»BIN#BIC*BDN#BDe*BIP#BIA 

IF -COM 

FORGT SMIFIL»SMBA*SMBRN>SM0FIL 

ENDF 



FREEZE 

ENTRY 

ENTRY 



GMT*DMT»DPUCT*DFCB#DJOB#DIPMT*BAPMT#DDRQ 
DRMT*DPACT*DQST#DTTY 



* DECODE MONITOR TABLES AND PRINT 

*•.■'■■ 



* 

* 

* 

* 
* 

IF 
■.051 ZRO 

os2 zro 

UT BSS 

UNPACK ZRO 

STX 

STX 

LBA 

1 STA 



UNPACK TABLE --BRM UNPACK FOLLOWED BY ITEM LIST THEN - I. 
EACH ITEM IS A 5-BIT LEFT BIT NUMBER FOLLOWED BY A 5-BIT 
RIGHT SHIFT COUNT AND A 14-BIT ADDRESS INCREMENT* 
THE UNPAGKED WORDS ARE STORED IN THE OT TABLES THE FIRST 
TWO WORDS ARE THE ADDRESS OF THE CALL TO UNPACK AND THE 
CONTENTS OF THE X REGISTER <I«E. THE TABLE BASE > ON ENTRY. 



DEBUG 



100 

USt 
UT+1 
*UT+2 
US2 



UP1 



LDA 


UNPACK 


STA 


UT 


MIN 


UNPACK 


LDA* 


UNPACK 


SKE 


B-l 


BRU 


*+2 


BRR 


UNPACK 


ADD 


US I 


CAX 


i 


LDA* 


UNPACK 


LRSH 


19 


LDX 


0*2 


XXA 




LCY 


0*2 


STA* 


US2 


LDA* 


UNPACK 


RCY 


14. 


ETR 


*37B 


CAX 




LDA* 


US2 


LRSH 


0*2 


STA* 


US2 


MIN 


US2 


BRO 


UP1 



* THE ITEM MACRO TAKES 1 ARGUMENT ^DENOTING A FULL WORD)* 

* 2 ARGUMENTS CDENOTING A SINGLE BIT)* OR 3 ARGUMENTS CGIVING 

* THE FIRST AND LAST BIT NUMBERS). THE ILIST MACRO TAKES A 

* LIST OF ARGUMENTS EACH OF WHICH IS AN ARGUMENT LIST FOR ITEM. 

* .... . '•■'■' ■ '■ ' ' 
ITEM MACRO D 

II NARG 

IF 1.1*1 
ITEM DU)*0*23 
ELSF 11=2 





ITEM 


DC1)*D<2)*DC2) 




ELSF 


i v: 


II 


EQU 


23-DC3)+DC2) 


21 


EQU 


DC2) <AND)3*i6*l 1/2 




IF 


UCANDM 




C$21)* 


D<l)*D(2)/4 




ELSF 


1 




C$21) 


D<l)*D<2)/4 




ENDF 






ENDF 






ENDM 






FRGT 


II 




FRGT 


Zl 


ILIST 


MACRO 


L 


1L 


NARG 




2L 


EQU 


1 




RPT 


1L 




ITEM 


L<2L) 



2L EQU 2L+I 

ENDR 

ENDM 

FRGT 1L 

FRGT 2L 
'* 

* THE STEP AND SEG MACROS MAY BEST BE EXPLAINED IN QUASI-ALG0L: 

* STEP<VAR*INIT*INCR*LIMlT*PROC>sFOR VARsINlT* 

* VAR+INCR WHILE VAR#LIRIT ©0 PR0CCVAR> 

* SEQtVAR*INIT*iaMIT*PR0C>«F0R VAR»INIT*VAR WHILE VAR#LIMIT 

* DO VAR=PR0CCVAR> 

*.."., ' .. 

STEP MACRO L ' 

LDA LC2) 

STA LCD 

CAX 

BRM L<5> 

LDA L(l> 

ADD t L<3> 

SKE L<4> 

BRU *^6 

ENDM 

SEQ MACRO L 

LDA LC2> 

BRU *+4 

STA LCD 

CAX 

BRM LC4> 

SKE L<3) 

BRU *«4 

ENDM 

* . , ■■-■' 

* DECODE FORMAT STRING — BRM DECODE FOLLOWED BY THE FORMAT 

* AS AN ASCII STRING* UNRECOGNIZED CHARACTERS IN THE FORMAT 
♦ARE TYPED OUT. THE FOLLOWING CHARACTERS HAVE SPECIAL MEANINGS* 

■* SLASH - CARRIAGE RETURN AND LINE FEED 

* DOT - END OF FORMAT STRING 

* QUOTE - TYPE LITERALLY UNTIL NEXT QUOTE 

* THE FOLLOWING CHARACTERS ARE FOLLOWED BY A 2-DIGIT DECIMAL 

* INTEGER WHICH IS AN INDEX IN UTS 

* PLUS - PRINT AS UNSIGNED OCTAL 

* MINUS - PRINT AS SIGNED OCTAL C SIGN EXTENDED IF NECESSARY) 

* LPAR*- UT INDEX* ANYTHING* RPAR - PROCESS IF NONZERO 

* EQUALS - REVERSE AND PRINT AS BINARY 

* .. • .' • .. .. . 

©SI DATA 0*1 3777TB 

DS2 ZRO 

DECODE ZRO 

LDA DECODE 

ETR ??37777B 

MUL =3 

LSH 23 





ADD 


*2 




STA 


DSl 


BCl 


SCI 


DSl 




HLT 






SKE 


*16B 




BRU 


DC2 




LDA 


DSl 




MUL 


S12525253B 


, 


STA 


DECODE 




BRR 


DECODE 


BC2 


SKE 


=2 




BRU 


DC 13 


BC4 


GCI 


DSl 




HLT 






SKE 


»a... 




bru 


*+2 




BRU 


DC1 




CIO 


*1 




BRU 


BC4 


DC 13 


SKE 


=*17B 




BRU 


DC3 




TCO 


??155B 




TCO 


sl52B 




BRU 


BCl 


DC 3 


SKE 


sl0B 




BRU 


DC6 




BRM 


DAX 




SKE 


*0 : 




BRU 


DC1 




STA 


DS2 


BC7 


GCI 
HLT 


DSl 




SKE 


«t0B 




BRU 


DG5 




MIN 


DS2 




BRU 


DC7 


DCS 


SKE 


■*UB 


/ 


BRU 


DC7 




SKR 


DS2 




BRU 


DC7 




BRU 


BCl , 


BC6 


SKE 


■*I3B 




BRU 


DC8 




BRM 


BAX 


DC9 


LBB 


-B 




LBX 


al 




BRS 


36 




BRU 


BCl 


DCS 


SKE 


-1SB 




BRU 


DC14 




BRM 


DAX 




LDX 


DB2 


> 


LCY 


0*2 




RSH 


0,2 



(DOT) 



CQUOTE) 



C SLASH) 



<LPAR) 



CPLUS) 



(MINUS) 





SKG 


s~l 




BRO 


*+2 




BRO 


0C9 




TCO 


-15B 




CNA 






BRO 


DC? 


DC 14 


SKE 


«35B 




BRO 


DC 12 




BRM 


DAX 




STA 


DS2 




LDA 


*23 




SOB 


DB2 




STA 


DB2 


eais 


LDA 


DS2 




RCY 


1 




STA 


DS2 




LDA 


*10B 


'"* 


LCY 


1 




GIO 


si 




SKR 


DB2 




BRO 


DC IS 




BRO 


DCl 


DCl 2 


SKE 


= 11B 




GIO 


si 




BRU 


DCl 


*■... 






08 1 


ZRO 




D82 


ZRO 




DAX 


ZRO 




' 


GCI 


DS1 




HLT 






MOL 


«5 




STB 


DS2 




GCI 


DSl 




HLT 






ADD 


DS2 




SOB 


S2608 




CAX 




' 


ADD 


OT 




SOB 


si 


* 


STA 


DB2 




LDA* 


DB2 




LRSH 


19 




STA 


DB 1 




GLA 






LCY 


5 




STA 


DB2 




LDA 


0T#2 




BRR 


DAX 



<EQOALS> 



CRPAR> 



*■.■.'..' 

* DECODING ROOTINES FOR MONITOR TABLES 



* GET MONITOR TABLES TO USER GORE 

* ' . .. ■'.■■ '...'■'■■'■ ■ .. ,..'.' 

SMT ZRO; LBX *-30000B, STA 30000B*2, EAX 3777B*2* BRX *-2 
BRS 57* BRS 71 BRR GMT 

* DECODE ALL MONITOR TABLES 
DMT 



ZRO 




BRM 


DPUCT 


BRM 


DFCB 


BRM 


DJOB 


BRM 


DDRQ 


BRM 


DQST 


BRM 


DAPMT 


BRM 


BSMT 


BRM 


DRMT 


BRM 


DTTY 


BRM 


©PACT 


BRR 


DMT 



IF -1 



* DECODE 
*.. ' 

DSAMN 
DSAM 



SWAPPER ASSOCIATIVE MEMORY 



DSAM I 



ZRO 

ZRO 

BRM 

ASC 

SKN 

BRR 

STEP 

BRR 

ZRO 

BRM 

ILIST 

ILIST 

ILIST 

ILIST 

ILIST 

ILIST 

DATA 

BRM 

ASC 



DECODE 

V***. SAM ***/>•* 

SACNT - - 

DSAM 

DSAMN* SACNT* =1 #=0* DSAMI 

DSAM 

UNPACK \ 

CSAM1 *0* 5) * C SAM1 * 6* 1 I )* CSAM1 * 1 2* 17 ) 

<SAMt * 18*23)* <SAM2*0»5)* CSAM2* 6* 1 1 )* CSAM2* 12* 17) 

CSAM2* 18*23)* CSAM3*0*1 1 )* CSARl *0* 5)* <SAR1* 6* 11 5 

CSARl *12* 17)*< SARI* 1 8*235* CSAR2*0* 5)* < SAR2* 6i 1 1 ) 

CSAR2* 12* 17)* <SAR2* 18*23>* (SAR3* 12*17)* CSAR3* 18*23) 

CSAM3*12*17)*<SAM3*18*23) 

-1 

DECODE . 

•JOB +10 t 



*ll*+12*+13* + i4 
BRR DSAMI 
ENDF 



+02* +03* +04* +05 
+15* +16* +17* +18 



/ 



♦06* +07* +08* +09 
+19*+20/.» 



+21* +22/ 



* DECODE PHANTOM USER QUEUE 



■■*.. . . 

BPUCTN ZRO 

DPUCT ZRO 
LDA 
STA 
BRM 
ASC 
SEQ 
BRR 

DPOGTI ZRO 
BRM 
ILIST 
DATA 
BRM 
ASC 
LDA 
■ , •■ BRR 

* 

* DECODE FILE 

* 

DFCBN ZRO 

J3FCB ZR0 
BRM 
ASC 
STEP 
BRR 

DFCBI ZRO 
LDA 
SKA 
BRR 
BRM 
ILIST 
ILIST 
ILIST 
DATA 
BRM 
ASC 



PUCTR 

UT+1 / 

DECODE 

»/*** PUCT***//PUGTR ***** +0t//«* 

DPUCTN*PUBPTR**PUBPTR#DPUGTI 

DPOCT 

UNPACK 

0,(1,0,8>*<1*9,23),<2,0,11 )>C2^12,23> 

-1 ' ' "■• 

DECODE 

•TEST +03**/**+04 PUPAC -05 FILE +06/.* 

UT+2 

DPUCTI 

CONTROL BLOCKS 



DECODE 

•/*** FCBS ***//** 

DFCBN#»3*-1 UNFILE* DFCBI 

DFCB 



FA#2 

=40000000B 

DFCBI 

UNPACK 

<FA#0*6)»<FD#9*23)#<FC*3#8)#CFG>9>23)#<FA#9V23) 

CFC#0*2)*<FD*2)#CFD#8)#<FB#1>#<FD#6) 

<FD,3)><FD#4)*eFD*5)*<FD*0)»FW 

-1 

DECODE 

♦FILE +01 JOB +02 DEVICE +03C04 UNIT +04) 
♦<0 5 BUFFER +05)/ C06ABBR +06 )COUNT -07(08 CHX09 0UTX10 BUSY) 
+<15 ERR)CI1 PUB)<r2 DRM)C13 RX)U4 ROX16 WRD +16)/«* 
BRR DFCBI ; 



* DECODE JOB 


INDEXED TABLES 


DJ0BN 


ZRO 




DJOB 


ZRO 






BRM 


DECODE 




ASC 


'/*** JOBS ***//•♦ 




STEP 


0JOBN* s 1 ,= t **N JOBiDJOBI 




BRR 


DJOB 


DJOBI 


ZRO 






LDA 


PMTP*2 




SKG 


*0 




BRR 


DJOBI 




BRM 


UNPACK 





ILIST 


<RL3#12#17>#CRL3*18#23> 




ILIST 


<PMA#i>#tPMA,3#8>><PMA*!2#m#<PMA#i8 




DATA 


■ -I. ■-■■•..■:■.■■■■■■-.■ - ■-;.-■■- :.- 




BRM 


DECODE 




ASC . 


•JOB +0t TTY +08 RL3 +02>+03 


+ NPMT 


+07 USED +06 UNUSED +05 C04 NO CHARGE)/. V 




LDX 


UT+8 


"-v.- 


LDA 


TTYASG#2 


BJOBl 


CAX 






LDA 


PPTR»2 




MRG 


PLMSK 




SKA 


PRMSK 




BRU 


BJOBl 




LDA 


■B JOSP 




BRM 


MPS 




BRM 


DECODE 




ASC 


V. v 




BRR 


DJ08I 


DJOBP 


ZRO 
CAX 






BRU* 


*+2*2 




DATA 


DJPU* DJPP* DJPD 


BJPU 


BRM 


DECODE 




ASC 


.«)«„. 




BRR . 


DJOBP 


DJPP 


BRM 


DECODE 




ASC 


•*-01.» 




BRR 


DJOBP 


DJPD 


BRM 


DECODE 




ASC 


* w t"~0lV» 


* 


BRR 


DJOBP 


* DECODE RAD 


BIT TABLE 


*F 


IF -1 




DDBTN 


ZRO 




DDBT 


ZRO 






BRM 


DECODE 




ASC 


•/*** BRAT ***//•« 




STEP 


BDBTN**0*=1,*NSEC* DDRATI 




BRR 


DDBT 


DDRATI 


ZRO 


* • 




BRM 


UNPACK 




ILIST 


CDRAT1*0*4>#CDRAT2#0*23>#<DRAT3*8*23) 




DATA 


-1. " 




BRM 


DECODE 




ASC 


•SECTOR +01S *02 =03/. • 




BRR 


DDRATI 




ENDF 




* 






* DECODE SMT 




DSMTN 


ZRO 




DSMT 


ZRO 





v 


^.BRM 


DECODE 








ASC 


*/*** smt 


***//.» 




. '' 


STEP 


DSMTN**0* 


=l*sNSMT* DSMTI 






BRR 


DSMT 






DSMTI 


ZRO 

LDA 

SKA V 

SKA 

BRR 

BRM 


SMT*2 
=77700B 
X4 

DSMTI 
UNPACK „ 








ILIST 


<SMT*2*7) 


*CSMT*8)*<SMT*9*15)*<SMT*T6*17) 






ILIST 


<SMT*18)* 


CSMT* 19*25) 






DATA 


- 1 








BRM 


DECODE 


.-*.'. 






ASC 


*+01 +04" 


•**+05 +07<02 UC +02X03 EX1C06 R0 >'/•*- 




*■ 


BRR 


DSMTI 






♦DECODE INDIVIDUAL PMT 






BIPMTN 


ZRO 




..'•■' \ 




DIPMTL 


ZRO 








DIPMTU 


ZRO 








DIPMT 


ZRO 
LDA 
STA 
STA 
SKS 
BRR 
LDA 
ETR 
ADM 


PMTP*2 
DIPMTL 
DIPMTU 

=0 

DIPMT 
PMA*2 
*77B 
DIPMTU 


'- \ ■ . ' ■ ' ■ 






STX 


UT+1 


• - " 






BRM 


DECODE 








ASC. 


» /* PMT +01 *//•* 






STEP 


DIPMTN*DIPMTL*sI*BIPMTU*DPMTI 






BRR 


DIPMT 






DPMTI 


ZRO 
LDA 
SKE 
BRU 
BRR 
BRM 


0*2 
=0 

**2 

DPMTI 

UNPACK 








ILIST 


<0*0)*C0* 


1)»(0*8)*C0*9*15)*<0*16*17)*C0*18)*C0* 


19*23) 




DATA 


• 1 




...... ... .. 




LDA 


DIPMTL 








CNA 










ADD 


sNCMEM 








ADM 


UT+1 








BRM 


DECODE 








ASC 


*+01 ♦."♦ 








LDA 


UT+3 








SKE 


=0 ... 








BRU 


DPMTS 








BRM, 


DECODE 









ASC 


•+05**. "+06 •*■ 






LDA 


UT+2" 




',' 


SKE 


=0 






BRU 


DPMTI1 






BRM 


DECODE 






ASC 


♦+08. • 






BRU 


0PMTI2 




DPMTI1 


BRM 


DECODE 






ASC 


*DRM«* 




BPMTI2 


BRM 


DECODE 






ASC 


•<04 EXX07 R0)/» r 






BRR 


DPMTI 




DPMTS 


LDX 


usi 






BRM 


UNPACK 






ILIST 


<0*9*23> 






DATA 


-1 






BRM 


DECODE 






ASC 


•"(»*SMT +02 W )*V.» 




^ 


BRRi 


DPMTI 




* DECODE ALL 1 

5fc- 


PMTS . 




DAPMTN 


ZRO 






DAPMT 


ZRO 








BRM 


DECODE 






ASC 


•/*** PMTS ***/•* 






STEP 


DAPMTN**l*=l*eNj0B*OIPMT 




^ x 


BRR 


DAPMT 




* DECODE DRUM 


COMMAND QUEUE 




DRRQN 


IF -,l 
ZRO ^ 


■ - . 




DRRQ 


ZRO 








BRM 


DECODE 






ASC 


•/*** RRQ ***//♦• 






SEQ 


DRRQN* ERCL * =0* DRRQ I 






BRR 


DRRQ 




DRRQI 


ZRO 


,' ' 






BRM 


UNPACK 






ILIST 


<0*10*23>*Cl*3>*Ct*8*23> 






ILIST 


C2*4*10>*C2*4*15>*C3*12*17>»<3*l8*23r*2*3 




ILIST 


<1*8*12>*<1*13*23>*<2*11*12) 






DATA 


-1 






LDA 


OT+2 






SKE 


«0 






BRM 


DRRQ 12 




DRRQIt 


LDA 


UT+1 






ADD 


F.A .' 






SKE 


*RRQU 






BRO 


*+2 






LDA 


=RRQ 






SKE 


ERCL 






BRR 


DRRQI 





CLA 




BRR 


DRRQI 


DRRQI2 BRM 


DECODE 


ASG 


♦C03W ).» 


LDA 


OT+3 


ske 


=0 


BRO 


DRRQI3 


BRM 


DECODE . 


ASG 


!R •' 


DRRQI 3 LDA 


KT+2 


SKE 


=4000B 


BRO 


DRRQ14 


BRM 


DECODE 


ASC 


tp ♦05».»+i3.» : .... 


DRRQI 5 BRM 


DECODE I 


ASC 


, *ii« + »»+12C07# FILE +07X08* IR +08)/»* 


BRU 


DRRQU 


DRRQI4 SKE 


=NDDW 


BRU 


DRRQI 6 


BRM 


DECODE 


ASG 


r D»* . 


bru 


DRRQI7 


DRRQI6 SKE 


sMDXW 


BRO 


DRRQI 8 


BRM 


DECODE 


.. ASC 


■*!•• 


DRRQI7 BRM 


DECODE 


ASC 


* +06. • 


BRO 


DRRQI 5 


BRRQI8 BRM 


DECODE 


ASG 


•WR +02 CA +04 DA +09 DC +10/.* 


BRO 
* 

ENDF 


DRRQI 1 




DDRQN ZRO 




DDRQ ZRO 




BRM 


DECODE 


ASC 


•/*** DRQ ***//•* 


SEQ 


DDRQN*EDCL*-0*DDRQI 


BRR 


DDRQ 


DDRQI ZRO 


x ' . • 


BRM 


UNPACK 


ILIST 


C0*10*23)*C1*3)*C1*8*23) 


ILIST 


C2*4*10)*C2*4*15)*C3*l2*17)*C3*18*23)*2*3 


ILIST 


Cl*8*l2)*Cl*13*23)*C2*ll*12) 


DATA 


rl .'.' 


LDA 


OT+2 


SKE 


S0 


BRO 


DDRQI2 


DDRQI1 LDA 


UT+t 


ADD 


=4 


SKE 


sDRQO 


BRO 


*+2 


LDA 


*DRQ 





SKE 


EDCL 








BRR 


DDRQI 








CLA 










BRR 


DDRQI 






DDRQI2 


BRM 


DECODE 








ASC 


•C03W >« 


'"' 






LDA 


UT+3 








SKE x 


sr0 








BRU 


DDRQI 3 








BRM 


DECODE 








ASC 


•R •■•■ 






DDRQI3 


LDA 
SKE 
BRU 
BRM 


UT+2 
*4000B 
DDRQI 4 
DECODE 








ASG 


•P +05**. 


*»+13.» 




DDRQI5 


BRM 


DECODE 


"",. ■"."■'-.'.. ■'■■::. 






ASC 


. + n w + ,, +12<07# FILE +07X08* IR 


+08)/»* 




BRU 


DDRQI 1 






DDRQI 4 
DBRQI6 


SKE 
BRU 
BRM 
ASC 
BRU 
SKE 
BBU 
BRM 


aRDDW 
DDRQI 6 
DECODE 
•D.r _. 
DDRQI7 
=NDXW 
DDRQI 8 
DECODE 


'. 






ASC 


•I**' 


1 




DDRQI7 


BRM 
ASC 
BRU 


DECODE 
* +06»* 
DDRQI 5 






DDRQI8 


BRM 


DECODE 








ASC 


•WR +02 


CA +04 DA +09 DC +10/.* 




4fe 


BRU 


DDRQI 1 






♦DECODE RMT 








DRMTN 


ZRO 








DRMT 


ZRO 

BRM 


DECODE 








ASC 


»/*** RMT ***//.* 






STEP 


DRMTN#=NSMEM>«!#=NMEM# DRMTI 






BRR 


DRMT 






DRMTI 


ZRO 
BRM 


UNPACK 








ILIST 


CRMT*0>j 


. CRMT* 1 >* <RMT*10*23> 






ILIST 


RMC*RMA 








DATA 


-1 








BRM 


DECODE 








ASC 


*+0l ••-. 








LDA 


UT+4 








SKE 


=0 








BRU 


DRMTI 1 








BRM 


DECODE 


/ ' ■ " • - 





ASC 

DRMTI 2 BRM 
ASC 
BRR 

DRMTI 1 ADD 

SK0 

BRU 

. CLX 

DRMTI 3 £AX 
SKS 
BRU 
STX 
LDA 
ETR 
ADD 
SKG 
BRU 
LDA 
CNA 
ADD 
,ADM 
BRM 
_ ASC 

DRMTI 7 BRM 
ASC 
BRU 

DRMTI 6 LDA 
CNA 
ADM 
BRM 
ASC 
BRU 

DRMTI5 LDA 
ADD 
BRU 

* - 

* UNPACK PACT 
* 



UPPE 



ZRO 

BRM 

ILIST 

ILIST 

ILIST 

ILIST 

DATA 

BRR 



♦UNUSED^ 

DECODE 

• -05 +06/. 

DRMTI 

*! 

sPMT 

DRMTI 6 

i»2 

PMTP,2 

DRMTI 3 

UT+7 

PMA#2 

=77B 

PMTP*2 

UT+4 

DRMTI 5 

PMTP#2 

=NCMEM 
UT+4 
DECODE 
♦■♦■07* +04.* 
DECODE 
•C03 R0>.* 
DRMTI2 
-SMT 

UT+4 

DECODE 

■» +04. *• 

DRMTI7 

UT+4 

»1 

DRMTI 3 

ENTRY 



UNPACK 

PNEXT#<PL#10*23>#PA#PB#PX*RL1*RL2 

CPTEST*3#8># CPTEST* 10»23># <PPTR#0* 1 1 )* <PPTR* 12»23>> CPL*0t 

CPQU*1 2*23>* CPTAB* 10»23>* <PIM»4, 23>* tPQU*2*S)# CPQU*9# 1 1 5 

<PL*3*8>* <PQU*0)*tPQU* 1 >*<PTAB*0>» CPIM*«>* CPIM*1 >*<PIM;2> 

?1 ; " ":■" "■' '.' ■ " ■'-'■.". *' '■' " ." 

UPPE 



* 

* MAP FORK STRUCTURE WITH <A> 

*.:.-.. • 

MFSS 

MFT BSS 10 

MFP 

MFS 



ZRO 
BSS 
ZRO 
ZRO 
STA 



MFSS 





LDA 


=-1 




STA 


MFP 


MFS1 


BRM 


UPPE 




LDA 


= 1 




MIN 


MFP 




LDX 


MFP 




STA 


MFT#2 




LDX 


UT+1 




BRM* 


MFSS 


MFS4 


LDA 


UT+11 




SKE 


=0 




BRU 


MFSS 


MFS5 


LDA 


UT+1 4 




SKE 


=0 




BRU 


MFS3 




LDA 


=-J 




BRM* 


MFSS 




SKR 


MFP 




BRU 


*+2 




BRR 


MFS 




LDA 


UT+12 




MRS 


PLMSK 


<• 


CAX 






BRM 


UPPE- 


MFS3 


MRG 


PLMSK 




LDX 


MFP 




MIN 


MFT*2 




CAX 






BRM 


UPPE 




CLA 






BRM* 


MFSS 




BRO 


MFS4 


MFS2 


MR6 


PLMSK 


1 


CAX 






BRU 


MFS1 


* 






* PRINT FORK 


STRUCTURE 


* 




- 


PFSN 


ZRO 




PFS 


ZRO 
CLX 




PFS1 


STX 


PFSN 




LDA 


MFT>2 




LDX 


*1 




LDB 


=8 




BRS 


36 




LDA 


PFSN ' 




SKE 


MFP 




BRU 


PFS2 




BRR 


PFS 


PFS2 


ADD 
CAX 


-1 




TCO 


= 16B 



BRU 



MFSS 



BRU 


PFS1 


SDIPACT ZRO* 

♦ 

* DECODE ACT 

* 

DPACTN ZRO 


STX DPACTN* BRM DPACTI $ BRR BI PACT 


I VE PROCESS TABLE 




DPAGT ZRO 




LDX 


PACPTR 


STX 


UT+1 


BRM 


DECODE 


ASG 


•/*** PACT ***//PACPTR "**• -0i//»« 


STEP 


DPACTN#*0#=U-NJOB#BPACTI 


BRR 


DPAGT 


DPACTI ZRO 




LDA 


PMTP#2 


SKG 


S0 


BRR 


DPACTI 


STX 


UT+1 


BRM 


DECODE 


ASC 


♦/♦'JOB." +01 ♦/•♦ 


LDX 


DPACTN 


LDX 


TTN0>2 


LDA 


TTYASG»2 


DPACTI CAX 




LDA 


PPTR»2 


MRS 


pLmsk 


SKA 


PRMSK 


BRU 


DPACTI 


LDA 


=DPACTE 


BRM 


MPS 


BRR 


DPACTI 


DPACTE ZRO 




SKS 


=-1 


BRR 


DPACTE 


BRM 


DECODE 


ASC 


V-01! •* 


BRM 


PFS 


BRM 


DECODE 


ASC 


♦ LOG +03U3#+13><20 EX> TEST +09*V M +10/ 


♦ A +04 B +05 X +06/ RLl +07 RL2 +08 Q +17 M < , **i8**>* , 


+C21 EBX22 


LM ) C23 FM ) C24 TH ><25 NT) X 16 IM +1 6Y/ » * 


BRR 

4» 


DPACTE 


1* 

* DECODE QUEUE STRUCTURE 


DQSTS ZRO 




ASC 


'**,/' 


DQSTD ZRO 




ASC 


♦$/• ... 


DQSTA ASC 


, QTIQIOQSQQQEQTI• 


DQSTP DATA 


QTI#QIO*QSQ#QQE 


DQSTN ZRO 




BQSTJ ZRO 




DQST ZRO 


/ 





BRM 


DECODE 




ASC 


»/*** QUEUES .***//»* N - 




STEP 


DQSTN# =0 * * X * *DQSTN -DQSTP* DQSTI 




BRR 


DQST 


B8S.fi 


ZRO 






BRM 


UNPACK 




ILtST 


DQSTA*DQSTA+1*DQSTP 




DATA 


>!. 




LDP 


uT+a 




STA 


DQSTS 




STB 


DQSTD 




LDA* 


UT+4 




STA 


DQST J 




LDA 


?DQSTS 




LDB 


-.-I 




LDX 


»T ■ 




.BRS... ... 


34 


DQSTS 


LDA s8l 


STA DQST4 


DQSfl 


LDA 


, DQSTJ 




STA 


UT+2 




SKG 


=-! 




BRU 


DQST2 




LDX 


UT+4 




SKE 


2#2 




BRU 


DSST3 




LDA 


=DQSTD 




LDB 


=-1 




LDX 


= 1 




BRS 


34 




BRR 


DQSTI 


DQST3 


BRM 


DECODE 




ASC 


♦♦02?/.* 




BRR - 


DQSTI 


DQST2 


BRM 


DECODE 




ASC 


*-02* •:• 




LDX 


DQSTJ 




LDA 


PNEXT*2 




STA 


DQSTJ 




SKR DQST4 




BRU 


DQSTI .... 




TCO =155B* TCO =152B* BRO DQST5 


DQST4 


ZRO 




♦DECODE TELETYPE TABLES 


DTTYN 


ZRO 




DTTY 


ZRO 


: . 




BRM 


DECODE 




ASC 


•/*** TTYS ***//•* 




STEP 


DTTYN#=0#sl*=NTTB-l* DTTYI 




BRR , 


DTTY 


DTTYI 


ZRO 






BRM 


UNPACK 




ILIST 


TTYASG 



DATA 


-1 


IDA 


ADMSK 


SKG 


I3T+2 


BRR 


DTTY1 


BRH 


DECODE 


ASG 


*+01 -02/.* 


BRR 


DTTYI 


ENBF 


i 


END 





C IMPROVE LATER > 



